home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / T / The Personal Touch / The Personal Touch / background_2527.txt < prev    next >
Encoding:
Text File  |  1988-05-03  |  7.8 KB  |  378 lines

  1. -- background: 2527 from stack: in
  2. -- bmap block id: 6707
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Note Organizer
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global topnote
  9.   set hilite of bkgnd button "Note Organizer" to true
  10.   put the name of this card into topnote
  11. end opencard
  12.  
  13. on closecard
  14.   global smallm, whom, windowopenm
  15.   set hilite of bkgnd button "Note Organizer" to false
  16.   if windowopenm is not empty then
  17.     put windowopenm into whom
  18.     zoomclose
  19.   end if
  20. end closecard
  21.  
  22. on hidestuff
  23.   set cursor to 4
  24.   set lockscreen to true
  25.   hide bkgnd button "Print Page"
  26.   hide bkgnd button "Delete Page"
  27.   hide bkgnd button "New Page"
  28.   hide bkgnd button id 5
  29. end hidestuff
  30.  
  31. on zoomopen
  32.   global smallm, whom, windowopenm
  33.   set cursor to 4
  34.   set lockscreen to true
  35.   repeat with x = 1 to 16
  36.     hide card field x
  37.     hide card button x
  38.   end repeat
  39.   hide bkgnd button "Next"
  40.   hide bkgnd button "Last"
  41.   show card field whom
  42.   if windowopenm is not empty then
  43.     put whom into temp
  44.     put windowopenm into whom
  45.     zoomclose
  46.     put temp into whom
  47.   end if
  48.   put rect of card field whom into smallm
  49.   set rect of card field whom to 15,135,495,328
  50.   Set locktext of card field whom to false
  51.   set showlines of bkgnd field "Title" to false
  52.   Set locktext of bkgnd field "Title" to true
  53.   show bkgnd button "Close"
  54.   put whom into windowopenm
  55. end zoomopen
  56.  
  57. on zoomclose
  58.   global smallm, whom, windowopenm
  59.   set cursor to 4
  60.   set lockscreen to true
  61.   put item 1 of smallm into L
  62.   put item 2 of smallm into T
  63.   put item 3 of smallm into R
  64.   put item 4 of smallm into B
  65.   set rect of card field whom to L,T,R,B
  66.   Set locktext of card field whom to true
  67.   if card field whom is empty then put "‚Ä¢" into card field whom
  68.   put empty into windowopenm
  69.   repeat with x = 1 to 16
  70.     show card field x
  71.     show card button x
  72.   end repeat
  73.   Set locktext of bkgnd field "Title" to false
  74.   show bkgnd button "Next"
  75.   show bkgnd button "Last"
  76.   hide bkgnd button "Close"
  77. end zoomclose
  78.  
  79.  
  80.  
  81. -- part 1 (button)
  82. -- low flags: 00
  83. -- high flags: 8002
  84. -- rect: left=8 top=2 right=20 bottom=127
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: File Card
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   global lastfile
  96.   set cursor to 4
  97.   if lastfile is empty then
  98.     go to bkgnd "File Card"
  99.   else
  100.     go to lastfile
  101.   end if
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 2 (button)
  107. -- low flags: 00
  108. -- high flags: 8002
  109. -- rect: left=133 top=2 right=20 bottom=252
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Calender
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   global topcal
  121.   set cursor to 4
  122.   if topcal is empty then
  123.     go to bkgnd "Calender"
  124.   else
  125.     go to topcal
  126.   end if
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part 3 (button)
  132. -- low flags: 00
  133. -- high flags: 8002
  134. -- rect: left=259 top=2 right=20 bottom=378
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: Label Maker
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   global topcard
  146.   set cursor to 4
  147.   if topcard is empty then
  148.     go to bkgnd "Label Maker"
  149.   else
  150.     go to topcard
  151.   end if
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 4 (button)
  157. -- low flags: 00
  158. -- high flags: 8002
  159. -- rect: left=385 top=2 right=20 bottom=504
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: Note Organizer
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   set lockscreen to true
  171.   show Bkgnd button "New Page"
  172.   show Bkgnd button "Delete page"
  173.   show Bkgnd button "Print Page"
  174.   show Bkgnd button id 5
  175. end mouseUp
  176.  
  177.  
  178.  
  179.  
  180.  
  181. -- part 5 (button)
  182. -- low flags: 80
  183. -- high flags: 0000
  184. -- rect: left=386 top=2 right=21 bottom=504
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: 
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   hidestuff
  196. end mouseUp
  197.  
  198.  
  199.  
  200.  
  201. -- part 64 (field)
  202. -- low flags: 00
  203. -- high flags: 0000
  204. -- rect: left=127 top=75 right=102 bottom=410
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 7
  209. -- text size: 18
  210. -- style flags: 4096
  211. -- line height: 24
  212. -- part name: Title
  213.  
  214.  
  215. -- part 9 (button)
  216. -- low flags: 80
  217. -- high flags: A002
  218. -- rect: left=385 top=70 right=96 bottom=504
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: Print Page
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   global windowopenm,whom
  230.   hidestuff
  231.   if windowopenm is empty then
  232.     set lockscreen to false
  233.     open printing with dialog
  234.     set lockscreen to true
  235.     repeat with x = 1 to 16
  236.       if the number of chars of card field x < 3 then
  237.         next repeat
  238.       else
  239.         put x into whom
  240.         zoomopen
  241.         print this card
  242.         zoomclose
  243.       end if
  244.     end repeat
  245.     close printing
  246.   else
  247.     domenu "Print Card"
  248.   end if
  249. end mouseup
  250.  
  251.  
  252.  
  253.  
  254. -- part 65 (button)
  255. -- low flags: 80
  256. -- high flags: 2001
  257. -- rect: left=465 top=101 right=126 bottom=499
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 7417 / 7417
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: Close
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   zoomclose
  269. end mouseUp
  270.  
  271.  
  272.  
  273. -- part 7 (button)
  274. -- low flags: 80
  275. -- high flags: A002
  276. -- rect: left=385 top=45 right=71 bottom=504
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: Delete Page
  285. ----- HyperTalk script -----
  286. on mouseUp
  287.   global windowopenm, whom
  288.   hidestuff
  289.   if bkgnd field "Title" is "Help Notes" then
  290.     beep 1
  291.     exit mouseup
  292.   end if
  293.   if windowopenm is empty then
  294.     put the name of next card in bkgnd "Note Organizer" into temp
  295.     domenu "Delete Card"
  296.     go to temp
  297.   else
  298.     put "‚Ä¢" into card field whom
  299.     zoomclose
  300.   end if
  301. end mouseUp
  302.  
  303.  
  304.  
  305.  
  306. -- part 30 (button)
  307. -- low flags: 00
  308. -- high flags: 2000
  309. -- rect: left=12 top=102 right=127 bottom=46
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 17779 / 17779
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: Last
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   set lockscreen to true
  321.   wait 20
  322.   if the mouse is down then go to first card in bkgnd "Note Organizer"
  323.   else
  324.     go to prev card in bkgnd "Note Organizer"
  325.   end if
  326. end mouseUp
  327.  
  328.  
  329.  
  330. -- part 31 (button)
  331. -- low flags: 00
  332. -- high flags: 2000
  333. -- rect: left=469 top=101 right=126 bottom=500
  334. -- title width / last selected line: 0
  335. -- icon id / first selected line: 8419 / 8419
  336. -- text alignment: 1
  337. -- font id: 0
  338. -- text size: 12
  339. -- style flags: 0
  340. -- line height: 16
  341. -- part name: Next
  342. ----- HyperTalk script -----
  343. on mouseUp
  344.   set lockscreen to true
  345.   wait 20
  346.   if the mouse is down then go to last card in bkgnd "Note Organizer"
  347.   else
  348.     go to next card in bkgnd "Note Organizer"
  349.   end if
  350. end mouseUp
  351.  
  352.  
  353.  
  354. -- part 6 (button)
  355. -- low flags: 80
  356. -- high flags: A002
  357. -- rect: left=385 top=20 right=46 bottom=504
  358. -- title width / last selected line: 0
  359. -- icon id / first selected line: 0 / 0
  360. -- text alignment: 1
  361. -- font id: 0
  362. -- text size: 12
  363. -- style flags: 0
  364. -- line height: 16
  365. -- part name: New Page
  366. ----- HyperTalk script -----
  367. on mouseUp
  368.   hidestuff
  369.   go to last card in bkgnd "Note Organizer"
  370.   domenu "Copy Card"
  371.   domenu "Paste Card"
  372.   repeat with x = 1 to 16
  373.     put "‚Ä¢" into card field x
  374.   end repeat
  375.   Put empty into bkgnd field "Title"
  376. end mouseUp
  377.  
  378.